﻿Imports BUS
Imports DTO

Public Class UserControlXemDanhSachLoaiTietKiem

    Private Sub UserControlXemDanhSachLoaiTietKiem_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ltkBUS As New LoaiTietKiemBUS()
        Dim lst As New List(Of LoaiTietKiemDTO)()
        lst = LoaiTietKiemBUS.LayLoaiTietKiem()
        For i As Integer = 0 To lst.Count - 1
            Dim lv As ListViewItem = lvwDanhSach.Items.Add((i + 1).ToString())
            lv.SubItems.Add(lst(i).MaLoaiTietKiem)
            lv.SubItems.Add(lst(i).TenLoaiTietKiem)
            lv.SubItems.Add(lst(i).LaiSuat)
        Next

    End Sub
End Class
